unit uBaseDivForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBaseCalcForm, StdCtrls, ExtCtrls;

type
  TfmBaseDivForm = class(TfmBaseCalcForm)
    Panel1: TPanel;
    imgMain: TImage;
    Label1: TLabel;
    laResult: TLabel;
    laP3: TLabel;
    laP2: TLabel;
    laP1: TLabel;
    imgRes: TImage;
    imgP3: TImage;
    imgP2: TImage;
    edResult: TLabeledEdit;
    edP3: TLabeledEdit;
    edP2: TLabeledEdit;
    edP1: TLabeledEdit;
    Bevel1: TBevel;
    edCurr: TLabeledEdit;
    Shape1: TShape;
    procedure DoFieldChange(Sender: TObject);
    procedure DoFloatKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  protected
  public
    { Public declarations }
    procedure AfterConstruction; override;
  end;

var
  fmBaseDivForm: TfmBaseDivForm;

implementation

{$R *.dfm}

uses uENoms;

{ TfmBaseDivForm }

procedure TfmBaseDivForm.AfterConstruction;
begin
  inherited;
  LoadPictureFromRes(imgP2.Picture, 'WARN');
  LoadPictureFromRes(imgP3.Picture, 'WARN');
  LoadPictureFromRes(imgRes.Picture, 'WARN');
end;

procedure TfmBaseDivForm.DoFieldChange(Sender: TObject);
begin
  inherited;
  DoFieldChanged;
end;

procedure TfmBaseDivForm.DoFloatKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['-','0'..'9',chr(VK_BACK),chr(VK_DELETE),DecimalSeparator]) then Key := #0;
end;

end.
